Invenzioni & Inventori

home *** CD-ROM | disk | FTP | other *** search

/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03101_Script_3101 < prev next >

Wrap

Text File | 1983-01-27 | 25KB | 747 lines

--on crea_init -- set lab to the labellist -- set stringa to "" -- -- -- set stringa to ins_frase (stringa,"", "on inizializza") -- -- set stringa to ins_frase (stringa,"", "global canale_video,Canale_pallina,canale_audio,canale_articolo,canale_principio") -- set stringa to ins_frase (stringa,"", "global pallina_chiusa,pallina_aperta,audio_nonbarrato,audio_barrato,video_aperto") -- set stringa to ins_frase (stringa,"", "global video_esterno,audio_intro") -- set stringa to ins_frase (stringa,"", "global At_hil_dacast,at_hil_quanti,at_hil_sprite") -- set stringa to ins_frase (stringa,"", "global Viff_da,viff_a") -- set stringa to ins_frase (stringa,"", "global lista_en_menu,lista_en_viaggio,lista_en_chiuso,lista_en_articolo,lista_en_principio,lista_en_video") -- set stringa to ins_frase (stringa,"", "global dove_articolo,dove_principio,dove_video") -- set stringa to ins_frase (stringa,"", "global video_bool,principio_bool,albero_bool,testo_bool,audio_bool,correlati_bool,viaggio_bool") -- set stringa to ins_frase (stringa,"", "global lista_curan,lista_curap,lista_curnu") -- set stringa to ins_frase (stringa,"", "global Att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite") -- -- -- -- -- -- -- -- -- -- -- -- -- canale_video Φ lo sprite dove Φ messa l'icona video -- -- se presente vale il numero del canale altrimenti 0 -- set canale_video to 0 -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("cur",nome)>0 then -- set canale_video to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set canale_video to "& canale_video) -- -- put stringa -- -- -- canale_pallina Φ lo sprite dove Φ messa l'icona pallina -- -- se presente vale il numero del canale altrimenti 0 -- set canale_pallina to 0 -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("sfe",nome)>0 then -- set canale_pallina to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set canale_pallina to "& canale_pallina) -- --put stringa -- -- -- canale_audio Φ lo sprite dove Φ messa l'icona audio -- -- se presente vale il numero del canale altrimenti 0 -- set canale_audio to 0 -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("aud",nome)>0 then -- set canale_audio to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set canale_audio to "& canale_audio) -- -- -- canale_articolo Φ lo sprite dove Φ messa l'icona audio -- -- se presente vale il numero del canale altrimenti 0 -- set canale_audio to 0 -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("tes",nome)>0 then -- set canale_articolo to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set canale_articolo to "& canale_articolo) -- -- -- -- canale_principio Φ lo sprite dove Φ messa l'icona audio -- -- se presente vale il numero del canale altrimenti 0 -- set canale_audio to 0 -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("pri",nome)>0 then -- set canale_principio to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set canale_principio to "& canale_principio) -- -- -- -- put stringa -- -- -- -- pallina_chiusa vale il numero del cast dove Φ messa la -- -- pallina chiusa -- -- se presente vale il numero del cast altrimenti 0 -- set pallina_chiusa to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("sfe_I",nome)>0 then -- set pallina_chiusa to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set pallina_chiusa to "& pallina_chiusa) -- -- -- -- pallina_aperta vale il numero del cast dove Φ messa la -- -- pallina aperta -- -- se presente vale il numero del cast altrimenti 0 -- set pallina_aperta to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("sfe_S",nome)>0 then -- set pallina_aperta to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set pallina_aperta to "& pallina_aperta) -- -- -- audio_nonbarrato vale il numero del cast dove Φ messa l' -- -- audio chiuso (altoparlante SENZA croce) -- -- se presente vale il numero del cast altrimenti 0 -- set audio_nonbarrato to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("aud_I",nome)>0 then -- set audio_nonbarrato to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set audio_nonbarrato to "& audio_nonbarrato) -- -- -- -- audio_barrato vale il numero del cast dove Φ messa la -- -- audio_barrato (Altoparlante CON la croce) -- -- se presente vale il numero del cast altrimenti 0 -- set audio_barrato to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("aud_O",nome)>0 then -- set audio_barrato to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set audio_barrato to "& audio_barrato) -- -- -- -- video_aperto vale il numero del cast dove Φ messa la -- -- video_aperto (Altoparlante CON la croce) -- -- se presente vale il numero del cast altrimenti 0 -- set video_aperto to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("spazio",nome)>0 then -- set video_aperto to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set video_aperto to "& video_aperto) -- -- -- testo_aperto vale il numero del cast dove Φ messa la -- -- -- se presente vale il numero del cast altrimenti 0 -- set testo_aperto to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("H_TESTO",nome)>0 then -- set testo_aperto to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set testo_aperto to "& testo_aperto) -- -- -- principio_aperto vale il numero del cast dove Φ messa la -- -- se presente vale il numero del cast altrimenti 0 -- set principio_aperto to 0 -- repeat with x=1 to 10000 -- if the type of member x = #bitmap then -- set nome to the name of cast x -- -- if offset("H_PRI",nome)>0 then -- set principio_aperto to x -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set principio_aperto to "& principio_aperto) -- -- -- -- -- -- -- audio_intro Φ il nome del file dell'audio introduttivo -- -- se presente vale il nome del file altrimenti "" -- -- set audio_intro to "" -- go "menu" -- set num_script to the framescript -- set pgm to the scripttext of member num_script -- set off1 to offset (" suono ",pgm) -- delete char 1 to off1 of pgm -- set off2 to offset (QUOTE,pgm) -- delete char 1 to off2 of pgm -- set off3 to offset (QUOTE,pgm) -- if off1>0 and off2>0 and off3>0 then -- set audio_intro to char 1 to off3-1 of pgm -- end if -- -- -- set stringa to ins_frase (stringa,"", "set audio_intro to "& QUOTE & audio_intro & QUOTE) -- -- -- -- -- video_esterno vale il nome del video storico -- -- se presente vale il nome del file .MOV altrimenti "" -- set video_esterno to "" -- repeat with x=1 to 10000 -- if the type of member x = #digitalvideo then -- set nome to the name of cast x -- -- if char 1 of nome= "V" then -- set video_esterno to nome -- exit repeat -- end if -- end if -- -- end repeat -- set stringa to ins_frase (stringa,"", "set video_esterno to " & QUOTE & video_esterno & QUOTE) -- -- -- -- -- at_hil_dacast = primo parametro della funzione AT_HIL -- -- at_hil_quanti = secondo parametro della funzione AT_HIL -- -- at_hil_sprite = terzo parametro della funzione AT_HIL -- -- set at_hil_dacast to 0 -- set at_hil_quanti to 0 -- set at_hil_sprite to 0 -- if offset("viaggio",lab)> 0 then -- -- go "viaggio" -- set mar to marker(0) -- set mar to mar+2 -- go mar -- -- -- set num_script to the framescript -- set pgm to the scripttext of member num_script -- set off1 to offset ("at_hil",pgm) -- delete char 1 to off1 of pgm -- set off2 to offset (" ",pgm) -- delete char 1 to off2 of pgm -- set off3 to offset (return,pgm) -- if off1>0 and off2>0 and off3>0 then -- set str to char 1 to off3-1 of pgm -- set off4 to offset(",",pgm) -- set num1 to char 1 to off4-1 of pgm -- set at_hil_dacast to value(num1) -- set stringa to ins_frase (stringa,"", "set at_hil_dacast to " & at_hil_dacast) -- delete char 1 to off4 of pgm -- -- set off4 to offset(",",pgm) -- set num1 to char 1 to off4-1 of pgm -- set at_hil_quanti to value(num1) -- set stringa to ins_frase (stringa,"", "set at_hil_quanti to " & at_hil_quanti) -- delete char 1 to off4 of pgm -- -- -- set num1 to pgm -- set at_hil_sprite to value(num1) -- set stringa to ins_frase (stringa,"", "set at_hil_sprite to " & at_hil_sprite) -- -- -- -- end if -- -- end if -- -- -- -- -- -- -- -- viff_da = primo parametro della funzione VIFF (nel marker 1 di viaggio) -- -- viff_a = secondo parametro della funzione VIFF (nel marker 1 di viaggio) -- -- -- set viff_da to 0 -- set viff_a to 0 -- if offset("viaggio",lab)> 0 then -- -- go "viaggio" -- set mar to marker(0) -- set mar to mar+1 -- go mar -- -- -- -- -- repeat with x=19 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- if viff_da = 0 then -- set viff_da to x -- end if -- -- else -- if viff_da>0 and viff_a =0 then -- set viff_a to x-1 -- exit repeat -- end if -- end if -- -- end repeat -- end if -- -- set stringa to ins_frase (stringa,"", "set viff_da to "& viff_da) -- set stringa to ins_frase (stringa,"", "set viff_a to "& viff_a) -- -- -- -- -- -- att_hilitec_dacast = primo parametro della funzione ATT_HILITEC -- -- att_hilitec_quanti = secondo parametro della funzione ATT_HILITEC -- -- att_hilitec_sprite = terzo parametro della funzione ATT_HILITEC -- -- set att_hilitec_dacast to 0 -- set att_hilitec_quanti to 0 -- set att_hilitec_sprite to 0 -- if offset("viaggio",lab)> 0 then -- -- go "viaggio" -- set mar to marker(0) -- set mar to mar+2 -- go mar -- -- -- set num_script to the framescript -- set pgm to the scripttext of member num_script -- if offset("Att_hilite",pgm)>0 and offset("att_hilitec",pgm)=0 then -- -- vecchio caso con ATT_HILITE -- set off1 to offset ("att_hilite",pgm) -- delete char 1 to off1 of pgm -- set off2 to offset (" ",pgm) -- delete char 1 to off2 of pgm -- set off3 to offset (return,pgm) -- if off1>0 and off2>0 and off3>0 then -- set str to char 1 to off3-1 of pgm -- set off4 to offset(",",pgm) -- set num1 to char 1 to off4-1 of pgm -- set att_hilitec_dacast to value(num1) -- set stringa to ins_frase (stringa,"", "set att_hilitec_dacast to " & att_hilitec_dacast) -- delete char 1 to off4 of pgm -- -- set off4 to offset(",",pgm) -- set num1 to char 1 to off4-1 of pgm -- delete char 1 to off4 of pgm -- -- set off4 to offset(",",pgm) -- set num1 to char 1 to off4-1 of pgm -- -- set att_hilitec_sprite to att_hilitec_dacast - value(num1) -- set stringa to ins_frase (stringa,"", "set att_hilitec_sprite to " & att_hilitec_sprite) -- delete char 1 to off4 of pgm -- -- -- set off4 to offset(",",pgm) -- set num1 to char 1 to off4-1 of pgm -- set att_hilitec_quanti to value(num1) -- set stringa to ins_frase (stringa,"", "set att_hilitec_quanti to " & att_hilitec_quanti) -- END IF -- else -- -- if offset("ATT_HILITEC",pgm)> 0 then -- -- caso nuovo con ATT_HILITEC -- -- set off1 to offset ("att_hilitec",pgm) -- delete char 1 to off1 of pgm -- set off2 to offset (" ",pgm) -- delete char 1 to off2 of pgm -- set off3 to offset (return,pgm) -- if off1>0 and off2>0 and off3>0 then -- set str to char 1 to off3-1 of pgm -- set off4 to offset(",",str) -- set num1 to char 1 to off4-1 of str -- set att_hilitec_dacast to value(num1) -- set stringa to ins_frase (stringa,"", "set att_hilitec_dacast to " & att_hilitec_dacast) -- delete char 1 to off4 of str -- -- set off4 to offset(",",str) -- set num1 to char 1 to off4-1 of str -- set att_hilitec_quanti to value(num1) -- set stringa to ins_frase (stringa,"", "set att_hilitec_quanti to " & att_hilitec_quanti) -- delete char 1 to off4 of str -- -- -- set num1 to str -- set att_hilitec_sprite to value(num1) -- set stringa to ins_frase (stringa,"", "set att_hilitec_sprite to " & att_hilitec_sprite) -- -- -- -- end if -- -- -- -- -- end if -- end if -- end if -- -- -- dove_articolo setta la variabile DOVE in articolo -- -- dove_principio setta la variabile DOVE in principio -- -- dove_video setta la variabile DOVE in video -- -- set dove_articolo to 0 -- set dove_principio to 0 -- set dove_video to 0 -- set conta to 1 -- -- repeat with x=at_hil_dacast to at_hil_dacast+at_hil_quanti -- set nome to the name of cast x -- if offset("CUR",nome) >0 then set dove_video to conta -- if offset("PRI",nome) >0 then set dove_principio to conta -- if offset("TES",nome) >0 then set dove_articolo to conta -- set conta to conta+1 -- end repeat -- -- set stringa to ins_frase (stringa,"", "set dove_video to " & dove_video) -- set stringa to ins_frase (stringa,"", "set dove_principio to " & dove_principio) -- set stringa to ins_frase (stringa,"", "set dove_articolo to " & dove_articolo) -- -- -- -- -- video = 1 se Φ presente il video 0 altrimenti -- -- principio = 1 se Φ presente il principio 0 altrimenti -- -- albero = 1 se Φ presente il albero 0 altrimenti -- -- testo = 1 se Φ presente il testo 0 altrimenti -- -- audiobool = 1 se Φ presente il audio 0 altrimenti -- -- correlati = 1 se Φ presente il correlati 0 altrimenti -- -- viaggio = 1 se Φ presente il viaggio 0 altrimenti -- -- set video_bool to 0 -- set principio_bool to 0 -- set albero_bool to 0 -- set testo_bool to 0 -- set audio_bool to 0 -- set correlati_bool to 0 -- set viaggio_bool to 0 -- set inventore_bool to 0 -- -- if video_esterno <>"" and dove_video>0 then set video_bool to 1 -- if dove_principio>0 then set principio_bool to 1 -- if dove_articolo >0 then set testo_bool to 1 -- if offset("viaggio",lab)>0 then set viaggio_bool to 1 -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("alb",nome)>0 then -- set albero_bool to 1 -- exit repeat -- end if -- end if -- -- end repeat -- -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("art",nome)>0 then -- set correlati_bool to 1 -- exit repeat -- end if -- end if -- -- end repeat -- -- go "menu" -- repeat with x=1 to 48 -- set y to the castnum of sprite x -- if y>0 and y<1000 then -- set nome to the name of cast y -- if offset("inv",nome)>0 then -- set inventore_bool to 1 -- exit repeat -- end if -- end if -- -- end repeat -- -- -- if audio_intro <> "" then set audio_bool to 1 -- -- -- -- set stringa to ins_frase (stringa,"", "set video_bool to "& video_bool) -- set stringa to ins_frase (stringa,"", "set audio_bool to "& audio_bool) -- set stringa to ins_frase (stringa,"", "set testo_bool to "& testo_bool) -- set stringa to ins_frase (stringa,"", "set principio_bool to "& principio_bool) -- set stringa to ins_frase (stringa,"", "set correlati_bool to "& correlati_bool) -- set stringa to ins_frase (stringa,"", "set viaggio_bool to "& viaggio_bool) -- set stringa to ins_frase (stringa,"", "set inventore_bool to "& inventore_bool) -- set stringa to ins_frase (stringa,"", "set albero_bool to "& albero_bool) -- -- -- -- -- -- -- -- -- lista_en_menu lista per attivare la funzione ENTRATA in MENU -- -- lista_en_viaggio lista per attivare la funzione ENTRATA in VIAGGIO -- -- lista_en_chiuso lista per attivare la funzione ENTRATA in CHIUSO -- -- lista_en_articolo lista per attivare la funzione ENTRATA in ARTICOLO -- -- lista_en_principio lista per attivare la funzione ENTRATA in PRINCIPIO -- -- lista_en_video lista per attivare la funzione ENTRATA in VIDEO -- -- set lista_en_menu to [] -- set lista_en_viaggio to [] -- set lista_en_chiuso to [] -- set lista_en_articolo to [] -- set lista_en_principio to [] -- set lista_en_video to [] -- -- if offset("menu",lab) then set lista_en_menu to crea_lista ("menu") -- if offset("viaggio",lab) then set lista_en_viaggio to crea_lista ("viaggio") -- if offset("chiuso",lab) then set lista_en_chiuso to crea_lista ("chiuso") -- if offset("articolo",lab) then set lista_en_articolo to crea_lista ("articolo") -- if offset("principio",lab) then set lista_en_principio to crea_lista ("principio") -- if offset("video",lab) then set lista_en_video to crea_lista ("video") -- -- set stringa to ins_frase (stringa,"", "set lista_en_menu to " & lista_en_menu) -- set stringa to ins_frase (stringa,"", "set lista_en_chiuso to " & lista_en_chiuso) -- set stringa to ins_frase (stringa,"", "set lista_en_articolo to " & lista_en_articolo) -- set stringa to ins_frase (stringa,"", "set lista_en_principio to " & lista_en_principio) -- set stringa to ins_frase (stringa,"", "set lista_en_viaggio to " & lista_en_viaggio) -- set stringa to ins_frase (stringa,"", "set lista_en_video to " & lista_en_video) -- -- -- lista_curan e lista_curap sono liste di valori di curan e curap -- -- presi dal marker 1 di viaggio -- -- set lista_curan to [] -- set lista_curap to [] -- set lista_curnu to [] -- -- if offset("viaggio",lab)> 0 then -- -- go "viaggio" -- -- -- set num_script to the framescript -- set pgm to the scripttext of member num_script -- repeat while pgm<>"" -- set linea to estrai_linea (pgm) -- -- set pgm to elimina_linea(pgm) -- -- if offset ("curan",linea)>0 and offset("--",linea)=0 then -- if offset ("curan",linea)>0 then -- set off1 to offset("curan",linea) -- delete char 1 to off1 of linea -- set off1 to offset(" ",linea) -- delete char 1 to off1 of linea -- set valore to value(linea) -- if valore >=1 and valore <=48 then -- add lista_curan, valore -- end if -- end if -- -- if offset ("curap",linea)>0 and offset("--",linea)=0 then -- if offset ("curap",linea)>0 then -- set off1 to offset("curap",linea) -- delete char 1 to off1 of linea -- set off1 to offset(" ",linea) -- delete char 1 to off1 of linea -- set valore to value(linea) -- if valore >=1 and valore <=48 then -- add lista_curap, valore -- end if -- end if -- -- -- end repeat -- -- end if -- -- -- -- -- -- set stringa to ins_frase (stringa,"", "set lista_curan to " & lista_curan) -- set stringa to ins_frase (stringa,"", "set lista_curap to " & lista_curap) -- set stringa to ins_frase (stringa,"", "set lista_curnu to " & lista_curnu) -- -- -- -- -- -- set stringa to ins_frase (stringa,"", "end" ) -- -- put stringa -- repeat with x=1 to 10000 -- -- if the type of member x = #script then -- -- set pgm to the scripttext of member x -- if offset ("on super_corr",pgm) then -- set n_cast to x -- exit repeat -- end if -- end if -- -- end repeat -- -- if n_cast >0 then -- set off1 to offset(return & "-- xyz",pgm) -- put off1 -- set pgm to char 1 to off1-1 of pgm -- set new_str to pgm & return & return & "-- xyz *** NON TOGLIERE QUESTA RIGA"& return & return & return & stringa & return -- set the scripttext of member N_cast to new_str -- end if -- -- inizializza -- --end -- -- -- -- -- -- xyz *** NON TOGLIERE QUESTA RIGA -- -- --on inizializza -- global canale_video,Canale_pallina,canale_audio,canale_articolo,canale_principio -- global pallina_chiusa,pallina_aperta,audio_nonbarrato,audio_barrato,video_aperto -- global video_esterno,audio_intro -- global At_hil_dacast,at_hil_quanti,at_hil_sprite -- global Viff_da,viff_a -- global lista_en_menu,lista_en_viaggio,lista_en_chiuso,lista_en_articolo,lista_en_principio,lista_en_video -- global dove_articolo,dove_principio,dove_video -- global video_bool,principio_bool,albero_bool,testo_bool,audio_bool,correlati_bool,viaggio_bool -- global lista_curan,lista_curap,lista_curnu -- global Att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite -- global olddove -- set olddove to 0 -- -- -- set canale_video to 0 -- set canale_pallina to 42 -- set canale_audio to 41 -- set canale_articolo to 45 -- set canale_principio to 44 -- set pallina_chiusa to 216 -- set pallina_aperta to 214 -- set audio_nonbarrato to 210 -- set audio_barrato to 212 -- set video_aperto to 0 -- set testo_aperto to 202 -- set principio_aperto to 201 -- set audio_intro to "AI113sp" -- set video_esterno to "" -- set at_hil_dacast to 196 -- set at_hil_quanti to 4 -- set at_hil_sprite to 43 -- set viff_da to 20 -- set viff_a to 23 -- set att_hilitec_dacast to 3 -- set att_hilitec_quanti to 19 -- set att_hilitec_sprite to 3 -- set dove_video to 0 -- set dove_principio to 2 -- set dove_articolo to 3 -- set video_bool to 0 -- set audio_bool to 0 -- set testo_bool to 1 -- set principio_bool to 1 -- set correlati_bool to 1 -- set viaggio_bool to 1 -- set inventore_bool to 0 -- set albero_bool to 0 -- set lista_en_menu to [1, 3, 41, 47] -- set lista_en_chiuso to [1, 3, 41, 47] -- set lista_en_articolo to [1, 4, 7, 7, 14, 16, 41, 47] -- set lista_en_principio to [1, 4, 6, 8, 41, 47] -- set lista_en_viaggio to [1, 10, 20, 23, 41, 47] -- set lista_en_video to [] -- set lista_curan to [10] -- set lista_curap to [5, 6, 7, 8, 9] -- set lista_curnu to [] --end --